home *** CD-ROM | disk | FTP | other *** search
/ My Neighborhood / My Neighborhood.iso / mac / MacFiles / ExitFarm.Dxr / 00078.ls < prev    next >
Encoding:
Text File  |  1997-11-21  |  289 b   |  10 lines
  1. on exitFrame
  2.   global curLoc, exitReward, NewCity, rewardLocs, dummyList
  3.   set exitReward to getOne(NewCity, curLoc)
  4.   set exitReward to getAt(rewardLocs, exitReward)
  5.   if exitReward = EMPTY then
  6.     set T to random(count(dummyList))
  7.     set exitReward to getAt(dummyList, T)
  8.   end if
  9. end
  10.